perm filename FOO[1,3]3 blob sn#127984 filedate 1974-11-06 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 ENDMK
CāŠ—;

(DEFPROP SIZE
 (LAMBDA (X) 
		(COND ((ATOM X) 1)
		 (T (PLUS (SIZE (CAR X)) (SIZE (CDR X))))))
EXPR)

(DE FOO (X) (COND
		((ATOM X) (SETQ S (PLUS S (SIZE (CDR X)))))
		(T (FOO (CAR X))(FOO(CDR X)) ) ) )

NIL